home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / sqlqry.exe / LOGIN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-01-03  |  3.7 KB  |  154 lines
  1. login
  2. Database Access
  3. Form1
  4. Label1
  5. &Server:
  6. Server_Field
  7. Label2
  8. &Login ID:
  9. LoginID_Field
  10. Label3
  11. &Password:
  12. Password_Field
  13.     OK_BUTTON
  14. CANCEL_BUTTON
  15. Cancel
  16. Text1
  17. Label1
  18. Server_name_field
  19. Label2?
  20. Login_id_field
  21. Label3
  22. password_field
  23. Command1
  24. Command2
  25. Form1K
  26. Login~
  27. CONNECT_MENU
  28.     EDIT_MENU
  29. EMPLOYEES_MENU~
  30. HOUSES_MENU
  31. REPORTS_MENU
  32.     EXIT_MENUQ
  33. Command2_Clickc
  34. Command1_Click+
  35. Login_Id
  36. Server_name
  37. Server_fields
  38. Password
  39. SqlInit
  40. SqlConn
  41. SqlOpenConnection=
  42. Server
  43. Form_Click
  44. Server_name_field_Change
  45. login_id_field_ChangeN
  46. Result|
  47. SqlUseQ
  48. FAILm
  49. ThenMsgBoxe
  50. @    Form_Load^
  51. Cancel+
  52. enabledL
  53. Server_name_field_LostFocus,
  54.     OK_button
  55. login_id_field_LostFocus>
  56. password_field_Change
  57. password_field_LostFocusp
  58. Cancel_button
  59. Ourplace!
  60. VBSQL1
  61. value1+
  62. value2\
  63. OK_BUTTON_Click
  64. OK_BUTTON_KeyUp
  65. KeyCode
  66. Shiftl
  67. CANCEL_BUTTON_Click
  68. SqlClose
  69.     INFO_MENU
  70. STANDARD_MENU
  71. LAYOUT_MENU
  72. DETAILS_MENU
  73. SALES_MENU
  74. login_id_field_KeyUp
  75. Server_name_field_KeyUp=
  76. password_field_KeyUp
  77. SQL_ERRORS
  78. standard_form{
  79. LIST_NO_FIELDc
  80. STREET_FIELD
  81. CITY_FIELD1
  82. DISTRICT_FIELD
  83. Label4
  84. RETRIEVE_BUTTON<
  85. Command3
  86. Command4W
  87. DRIVE_COMBO
  88. DIR_TREE_COMBO@
  89. FILE_NAME_COMBO
  90. SIZE_FIELD
  91. BITMAP_PICTURE
  92. FROM_FILE_BUTTON,
  93. TO_SQL_BUTTON^
  94. TO_CDRIVE_BUTTON
  95. Database
  96. Results
  97. VBQUERY
  98. Caption
  99. MAINFORM
  100. ThenMAINFORM!
  101. Result5
  102. SqlGetTime
  103. Database_name    
  104. SqlDbn
  105. GetDatabaseName
  106. SqlCmd
  107. SqlExec
  108. SqlResultsU
  109. NOMORERESULTS
  110. olumn&
  111. lining
  112. compute
  113. columns
  114. SqlNextRow
  115. NOMOREROWS
  116. SqlData
  117. SqlSetLoginTime
  118. Status
  119. SqlSetTime
  120. Loginid_field
  121. Startup^
  122. Servername.
  123. Login_Id_Name
  124. Username
  125. Valid_User
  126. ApplicationName
  127. Update
  128. WorkstationName
  129. Main>
  130. Label3_ClickN
  131. Label1_Click|
  132. Label2_Click
  133. Server_Field_AutoTerminate
  134. LoginId_Field_AutoTerminate
  135. Form_Load
  136. ~ LOGIN.FRM - Login 
  137.  .INITIALIZE SQL/SERVER
  138. Sorry - Unable to connect to SQL/Server"
  139.   INCLUDE CODE TO HIDE PLEASE WAIT MESSAGE IN STARTUP FORM
  140. SQLQuery
  141. OK_BUTTON_Click
  142.  Get the server name, login Id, & password from the form
  143. Must supply a server name"
  144. Must supply a login id
  145.  Check to see if the connection is live, if so, then close its
  146.  Set the max time to login to 30 seconds
  147.  Open the new connection
  148.  Change the caption of the application to reflect the server name and the database
  149.  Set the max time we will wait for a SQL Server response
  150. VBSQL"
  151. VBSQL"
  152. Connection Failed - Check Server name, User id and password"
  153. CANCEL_BUTTON_Click
  154.